From 94f8367e6f71af7cd341e12823915de4fba9aeaf Mon Sep 17 00:00:00 2001 From: Michael Albinus Date: Sun, 1 Feb 2009 10:46:42 +0000 Subject: [PATCH] * net/tramp.el (tramp-read-passwd): Cached passwords shall still be used. --- lisp/net/tramp.el | 16 +++++++++------- 1 file changed, 9 insertions(+), 7 deletions(-) diff --git a/lisp/net/tramp.el b/lisp/net/tramp.el index e222a01a273..e2e603a6b0a 100644 --- a/lisp/net/tramp.el +++ b/lisp/net/tramp.el @@ -3664,7 +3664,7 @@ the result will be a local, non-Tramp, filename." (buffer-substring (point) (tramp-compat-line-end-position))))) (setq localname (concat uname fname)))) ;; There might be a double slash, for example when "~/" - ;; expands to "/". Remove this. + ;; expands to "/". Remove this. (while (string-match "//" localname) (setq localname (replace-match "/" t t localname))) ;; No tilde characters in file name, do normal @@ -7433,12 +7433,14 @@ Invokes `password-read' if available, `read-passwd' else." (funcall (symbol-function 'auth-source-user-or-password) "password" tramp-current-host tramp-current-method)) ;; Try the password cache. - (and (functionp 'password-read) - (tramp-get-connection-property proc "first-password-request" nil) - (let ((password (funcall (symbol-function 'password-read) - pw-prompt key))) - (funcall (symbol-function 'password-cache-add) key password) - password)) + (when (functionp 'password-read) + (unless (tramp-get-connection-property + proc "first-password-request" nil) + (funcall (symbol-function 'password-cache-remove) key)) + (let ((password + (funcall (symbol-function 'password-read) pw-prompt key))) + (funcall (symbol-function 'password-cache-add) key password) + password)) ;; Else, get the password interactively. (read-passwd pw-prompt)) (tramp-set-connection-property proc "first-password-request" nil)))) -- 2.30.2